screen _newimage(640, 320, 14)
inc% = 3
y_loc = _height / 8 - 2
do
scroll ("TODO","TODO")-("TODO","TODO"), "TODO", -inc%
i = i + inc%
if story_line$ <> "END" then
if i > 8 then read story_line$: i = 0 : locate y_loc,1 : print story_line$;
end if
sleep 0.4
loop

END

DATA "Once upon a time there was an old mother pig who had three little pigs and not"
DATA "enough food to feed them."
DATA " "
DATA "So when they were old enough, she sent them out into the world to seek their"
DATA "fortunes."
DATA " "
DATA "The first little pig was very lazy. He didn't want to work at all and he"
DATA "built his house out of straw."
DATA " "
DATA "The second little pig worked a little bit harder but he was somewhat lazy too"
DATA "and he built his house out of sticks."
DATA " "
DATA "Then, they sang and danced and played together the rest of the day."
DATA " "
DATA "The third little pig worked hard all day and built his house with bricks."
DATA "It was a sturdy house complete with a fine fireplace and chimney."
DATA "It looked like it could withstand the strongest winds."
DATA " "
DATA "The next day, a wolf happened to pass by the lane where the three little pigs"
DATA "lived and he saw the straw house, and he smelled the pig inside."
DATA "He thought the pig would make a mighty fine meal and his mouth began to water."
DATA " "
DATA "So he knocked on the door and said:"
DATA "  Little pig! Little pig!"
DATA "  Let me in! Let me in!"
DATA " "
DATA "But the little pig saw the wolf's big paws through the keyhole,"
DATA "so he answered back:"
DATA "  No! No! No! "
DATA "  Not by the hairs on my chinny chin chin!"
DATA " "
DATA "Then the wolf showed his teeth and said:"
DATA "  Then I'll huff "
DATA "  and I'll puff "
DATA "  and I'll blow your house down."
DATA " "
DATA "So he huffed and he puffed and he blew the house down!"
DATA "END"